<script>on mouseUpif the optionKey is up thenask file "Save as…" with "HPopup.p"if it is empty then exit mouseUpput it into lastFileNameopen file lastFileNamewrite card field "Code" to file lastFileNameclose file lastFileNameelseanswer file "Where is the source?" of type "TEXT"if it is empty then exit mouseUpput it into fileNameopen file fileNameread from file fileName until eofput it into cd fld "Code"close file fileNameend ifend mouseUp</script>
<script>on mouseUplock screenif visible of card field "Code" then hide card field "Code"else show card field "Code"unlock screen with dissolveend mouseUp</script>
</part>
<part>
<id>6</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>197</left>
<top>251</top>
<right>384</right>
<bottom>273</bottom>
</rect>
<style>roundrect</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Install HPopUpMenu</name>
<script>on mouseUpput "Pick a stack to install HPopUpMenu into."put FileName( "STAK" ) into theTargetif theTarget is empty thenbeep 1answer "Installation cancelled." with "Ok"elseset cursor to watchget second word of the long name of stackput it into theSourceResCopy value of theSource, theTarget, "XFCN", "HPopUpMenu"if "OK" is in the result then answer "Installation complete." with "Ok"else error "HPopUpMenu"end ifhide msgend mouseUpon error whatbeepanswer "Unable to install " & what & "." with "Cancel"end error</script>
</part>
<part>
<id>2</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>0</left>
<top>0</top>
<right>512</right>
<bottom>342</bottom>
</rect>
<style>scrolling</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Monaco</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name>Code</name>
<script>on mouseUplock screenhide card field "Code"set scroll of target to 0unlock screen with dissolveend mouseUp</script>
</part>
<content>
<layer>background</layer>
<id>3</id>
<text>Some of the features I worked hard to include are the ability to select the items on the main menu and to correspondingly not select disabled items.I also went to some trouble to allow long strings so that you can have large menus. I also added the ability to use small icons. Please let me know if you find anything that doesn't work as it should.In the spirit of cooperation and the spread of knowledge, I have included the source code to this XFCN. Simply press the magic button to get the file written to disk.</text>
<script>on mouseDownif the optionKey is down thenlock screenset visible of card field "Apps" to not visible of card field "Apps"unlock screen with dissolveelseglobal progs,Appsset hilite of target to true-- getProgs is stored in the card scriptif progs is empty then getProgsput HPopUpMenu(progs, 0, bottom of me, left of me) into junkset hilite of target to falseif the result is not empty then put the resultif item 1 of junk is not empty thenget item 1 of junkelseget emptyend ifif it is "Other…" thenget "the application that you want"end ifif it is not empty then-- setDirectory is another XCMD I wrotesetDirectory(item 1 of line (item 3 of junk) of Apps)put item 2 of junk into docnameif docname is emptythen open itelse open docname with itend ifend ifset cursor to browseend mouseDown</script>
</part>
<part>
<id>3</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>102</left>
<top>78</top>
<right>177</right>
<bottom>98</bottom>
</rect>
<style>roundrect</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>See Script</name>
<script>on mouseUpedit script of button 1end mouseUp</script>
</part>
<part>
<id>2</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>0</left>
<top>107</top>
<right>512</right>
<bottom>342</bottom>
</rect>
<style>scrolling</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>10</textSize>
<textStyle>plain</textStyle>
<textHeight>13</textHeight>
<name>Apps</name>
<script>on closeFieldglobal progsput empty into progsgetProgshide the targetend closeFieldon mouseUphide the targetend mouseUp</script>
</part>
<part>
<id>4</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>312</left>
<top>82</top>
<right>331</right>
<bottom>94</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>11893</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name></name>
<script>on mouseDownsend mouseDown to hittest(the mouseLoc, "btn")end mouseDown</script>
</part>
<content>
<layer>background</layer>
<id>3</id>
<text>One of the reasons I wrote this was that I had seen On Cue and had thought it was a good idea. It did a couple of things differently than I wanted though. For instance, it did not set your directory to the place where your data file was, like the system does when you open a document from the Finder. By doing it in Hypercard I could use another XCMD to set the directory anywhere I wanted. I tried using other popup XFCNs to do what I wanted, but an almost universal problem was that you couldn't choose the main menu item if it had a submenu hanging off of it. This turns out to be a problem with the way Apple implemented hierarchical menus, but On Cue got around it, so it was possible. I started writing…The button above does better than On Cue except for the fact that it is only accessible from within Hypercard. Click on the button with the Option key down to see the hidden field that contains the programs, data files, and directory information. If you copy this, be sure to take the card field also. I also have an openCard and getProgs handler in the card script to avoid delays when you click on the button.</text>
<script>on openCardglobal progsif progs is empty then getProgspass openCardend openCardon getProgs-- This initializes the global variable that contains the menu data-- It is written so that the button can be on a background or-- on a cardglobal progs,Appsput empty into progslock screenpush cardgo to card "Home" -- wherever the card field isput card field "Apps" into Appsrepeat with i = 1 to the number of lines of Appsget line i of Appsif item 2 of it is not empty then delete item 1 of itput it after progsend repeatpop cardunlock screenend getProgs</script>
</card>
card_5287.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<script>on mouseDown-- Note that menu meta-characters work-- ^ for icon-- † for small icon-- ! for check mark-- < for style-- ( for disabled items-- See IM I-346 to 349 for more detailsglobal savedItemif savedItem is empty then put 2 into savedItem-- the extra commas are for adding the diamonds to the threes-- null items don't appear in the popup menuif the optionKey is up thenput "Item1,1,2,3," & return & "Item2,;Item3^2,One,Two,Three,;" & ¬"Item4^" & NumToChar(270-208) & ",Isn’t,This,Fun?" & return & "(-;" & ¬"Go to,Next Card<I,Last Card,Help,Home^1,(-,Hell<O<I,Jail;" into stuffelse put "Item1,1,2,3," & return & "Item2,;Item3†2,One,Two,Three,;" & ¬"Item4^" & NumToChar(270-208) & ",Isn’t,This,Fun?" & return & "(-;" & ¬"Go to,Next Card<I,Last Card,Help,Home†1,(-,Hell<O<I,Jail;" into stuff-- the count of items to mark the ones we wantput "!" after item savedItem+1 of stuffput "!" after item savedItem+6 of stuffput HPopUpMenu(stuff, 0, bottom of me, left of me) into junkif item 1 of junk is not empty thenif item 1 of junk is "Go to" and item 2 of junk is not empty thenvisual scroll up to blackvisual scroll upgo to item 2 of junkelseput junkif item 3 of junk is in "13" and item 4 of junk is in "123"then put item 4 of junk into savedItemrepeat for 300if the mouse is down then if the mouse is up then exit repeatend repeathide msgend ifend ifend mouseDown</script>
</part>
<part>
<id>12</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>102</left>
<top>78</top>
<right>177</right>
<bottom>98</bottom>
</rect>
<style>roundrect</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>See Script</name>
<script>on mouseUpedit script of button 1end mouseUp</script>
</part>
<part>
<id>14</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>311</left>
<top>82</top>
<right>330</right>
<bottom>94</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>11893</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name></name>
<script>on mouseDownsend mouseDown to hittest(the mouseLoc, "btn")end mouseDown</script>
</part>
<content>
<layer>background</layer>
<id>3</id>
<text>Hierarchical Popup MenusThis example demonstrates how to create a drop down menu with submenus. This XFCN is limited to one level of submenus which should be enough for most purposes.The important thing to see is the format of the menuitem string.Main1,Sub1,Sub2,Sub3;Main2,Sub1,Sub2,Sub3;Main3;Main4,Sub1,Sub2Please note that the returned values include both menu items chosen and their numbers. You can use the numbers to index into other arrays or just use the returned values.I use the returned numbers to handle the diamond mark. See how it remembers what you have chosen. I tied both menus to the same variable which is probably not how it would be done in real life.</text>
</content>
<name></name>
<script></script>
</card>
card_7239.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<script>on mouseDownif the optionKey is upthen put "Macintosh^1,Application^2,File^3,Folder^4,Disk^5" into choiceselse put "Macintosh†6,Application†7,File†8,Folder†9,Disk†:" into choices-- find out what number the button isput 0 into lastItemrepeat with i = 1 to number of items of choicesif item i of choices contains short name of me thenput i into lastItemexit repeatend ifend repeat-- lastItem is negative so that there is no check markget HPopUpMenu(choices, -lastItem, top of me+1, left of me)-- check for errorsif the result is not empty then put the resultif item 1 of it is not empty thenput item 1 of it into lastItem -- returned item nameset the name of the target to lastItem -- change button nameend ifend mouseDown</script>
</part>
<part>
<id>2</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>102</left>
<top>78</top>
<right>177</right>
<bottom>98</bottom>
</rect>
<style>roundrect</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>See Script</name>
<script>on mouseUpedit script of button 1end mouseUp</script>
</part>
<part>
<id>3</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>319</left>
<top>82</top>
<right>338</right>
<bottom>94</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>11893</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name></name>
<script>on mouseDownsend mouseDown to hittest(the mouseLoc, "btn")end mouseDown</script>
</part>
<part>
<id>5</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>402</left>
<top>167</top>
<right>422</right>
<bottom>189</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>19678</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name></name>
<script>on mouseUplock screenshow cd fld 1unlock screen with wipe downend mouseUp</script>
</part>
<part>
<id>4</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>44</left>
<top>106</top>
<right>468</right>
<bottom>342</bottom>
</rect>
<style>opaque</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>10</textSize>
<textStyle>plain</textStyle>
<textHeight>13</textHeight>
<name>Menu Icon Details</name>
<script>on mouseUplock screenhide meunlock screen with wipe upend mouseUp</script>
</part>
<content>
<layer>background</layer>
<id>3</id>
<text>This sample shows how to implement small and color icons in a menu.Use ^ and a character for a cicn (color icon) or ICON (large icon) resource.Use † (option-t) for a SICN (small icon) resource (use option on example).These character codes are explained by clicking on this balloon.See IM I-346 to 349 for more details, but you can also use these metacharacters to customize menu items. Use ! to place a check mark next to the item or ( to disable an item. Use <B for bold style, <I for italic style, <S for shadow style & <O for outline style. There isn't any way to include these characters as menu item text.SICNs will not appear on menu items which have submenus. This is because the menu manager uses the same field for the SICN and hierarchical menu ID. It's one or the other. I chose to give the menu precedence.Everything here except for the SICNs is free from the menu manager.</text>
</content>
<content>
<layer>card</layer>
<id>4</id>
<text><span class="style1">CONs, cicns, and SICNs use a character code to indicate the icon number. These codes start with the character 1 for ICON or SICN number 257. There are a limited number of characters above 1 which means that all ICON and SICN resources you want to use in a menu must be numbered 257 through 334 inclusive so that you can specify a character for the code.Note that these characters grow through the ASCII chart, not numerically. (e.g. 2=258, 9=265, :=266, ;=267, <=268, ==269, >=270, ?=271, @=272, A=273, Z=298, [=299, \=300, ]=301, ^=302, _=303, `=304, a=305, z=330, {=331, |=332, }=333, ~=334)Use the expression </span><span class="style4">NumToChar(iconNum-208)</span><span class="style1"> to get the proper character given the number iconNum in the range 257 through 334.You cannot use an icon or SICN of ID 267 because it would be a ; character which would mess up the menu parsing. This is my fault but it would be painful to fix.</span><span class="style3"> Click on this field to hide it.</span></text>
</content>
<name></name>
<script></script>
</card>
card_4787.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<script>on mouseDownput "One,Two,Three,Four,Five,Six,Seven,Eight,Nine,Ten" into choices-- find out what number the button isput 0 into lastItemrepeat with i = 1 to number of items of choicesif item i of choices = short name of me thenput i into lastItemexit repeatend ifend repeat-- lastItem is negative so that there is no check markget HPopUpMenu(choices, -lastItem, top of me+1, left of me)-- check for errorsif the result is not empty then put the resultif item 1 of it is not empty thenput item 1 of it into lastItem -- returned item nameset the name of the target to lastItem -- change button nameend ifend mouseDown</script>
</part>
<part>
<id>3</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>102</left>
<top>78</top>
<right>177</right>
<bottom>98</bottom>
</rect>
<style>roundrect</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>See Script</name>
<script>on mouseUpedit script of button 1end mouseUp</script>
</part>
<part>
<id>9</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>291</left>
<top>82</top>
<right>310</right>
<bottom>94</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>11893</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name></name>
<script>on mouseDownsend mouseDown to hittest(the mouseLoc, "btn")end mouseDown</script>
</part>
<content>
<layer>background</layer>
<id>3</id>
<text>Regular Popup Menus!In this example we see how the HPopupMenu command can function as a completely normal popup menu. This is the simplest way to use this XFCN.The menu item string is seperated by commas. These are all transformed into semicolons when the XFCN sees that there are no heirarchical menus being used. Semicolons could be used also, but commas give us the ability to say "item N of choices" and use Hypercard’s limited array capabilities.You may also use returns to seperate items so that you can use the Hypercard syntax "line N of choices". This is just more flexibility.In Hypercard 2.x you can set the itemDelimiter property to ";" and use the semicolons that the menu manager uses. This spares the XFCN from having to change the commas or returns to semicolons.</text>
</content>
<name></name>
<script></script>
</card>
card_6129.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<text>• The location of the menu takes into account the card window's location so that the menu pops up in the right place even on large screens.• You can use this as either a regular popup menu or a hierarchical one.• You may have a very large number of menu items in either the main menu or any of the submenus. Using a single string avoids Hypercard's limitation of 16 parameters allowed to XCMDs and XFCNs, instead 32,000 characters and 127 hierarchical items per menu are the only limitations.• You can use commas, returns, or semicolons for regular popup menus.• You use commas to seperate hierarchical menu items and semicolons or returns to seperate the main menu items.• Blank items are ignored, allowing extra commas which make indexing into strings with HyperTalk much easier.• You can make the menu drop down, pop up, and/or have a default checked item through the use of the checkedItem parameter.• You can use all the standard meta-characters for making special menus. Bold, Italic, Shadow, icons, marked items all work. See the examples.• You can select the main menu item even if there is a sub menu on it.• You can put small icons on menu items with my custom † metacharacter.</text>
</content>
<name></name>
<script></script>
</card>
card_4578.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<text>get HPopupMenu ( MenuItems, CheckedItem, Top, Left )• MenuItems is a string of comma, return, or semicolon delimited words.Main1,Sub1,Sub2,Sub3;Main2,Sub1,Sub2,Sub3;Main3;Main4,Sub1,Sub2Commas separate the main menu item and its submenu items while a return or semicolon separates the main menu items. When there are no submenus can you use all commas, all returns, or all semicolons.• CheckedItem is the number of the desired default menu item. If it is zero then the menu drops down, while if it is negative then there is no check mark but the default item is the absolute value of CheckedItem.• Top, Left is where the menu should appear. These coordinates are local Hypercard coordinates.The returned result will be:main menu item, sub menu item, main menu number, sub menu number</text>
</content>
<name></name>
<script></script>
</card>
card_3925.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<script>on mouseUplock screenhide meunlock screen with dissolveend mouseUp</script>
</part>
<content>
<layer>background</layer>
<id>3</id>
<text>This is a version of a fairly common XFCN called HPopupMenu which, surprisingly enough, creates a hierarchical popup menu anywhere on a card. This version is much more robust than other versions I have seen and incorporates some features that I have not seen in other implementations, which is why I wrote it.Feel free to send questions, comments, praise and money to me:Jon Pugh(510) 373-7872(408) 862-7094jpugh@apple.comjonpugh@applelink.apple.comThis stack, the source code, and the XCMDs and XFCNs contained herein are copyright 1989, 1990, 1991 by Jon Pugh. They may be used freely as long as no money is charged for them or any product that contains them.</text>
</content>
<content>
<layer>card</layer>
<id>7</id>
<text>This change consisted of a possible bug fix that no one reported (an unlocked handle) and the addition of small icon support. I also added the down arrow to my popup menus so that they look like proper popups.</text>
</content>
<name></name>
<script>on closeCardif visible of card field "Version" then hide card field "Version"pass closeCardend closeCard</script>
.iso/HyperCard/XCMDs⁄XFCN/HierPopUp 2.7.1/HierPopUp 2.7.1/BMAP_7447.png){kind=link}
.iso/HyperCard/XCMDs⁄XFCN/HierPopUp 2.7.1/HierPopUp 2.7.1/PATs.png){kind=link}